home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / BBS / CID_SWV1.ZIP / LOGON1.WCX (.txt) < prev    next >
Encoding:
Wildcat! WCX  |  1995-12-25  |  373 b   |  49 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  373 bytes  03/05/125  02:32:44pm
  3. '! Code Segment Size  :314 bytes
  4. '! Data Segment Size  :4471 bytes
  5. '! String Segment Size:59 bytes
  6. '! Compiled with WCC version ? 019C017B
  7.  
  8.       Declare Function Func214(s65534 As String) As Integer
  9.  
  10.       Dim s4463 As String
  11.       Dim s4467 As String
  12.  
  13.       s4463 = ProgPath + "LOGON.CID"
  14.       If Func214(s4463) Then
  15.         Input #1, s4467
  16.         Close 1
  17.       Else
  18.    87   If Not Func214(s4463) Then
  19.           If User.SecLevel <> "SYSOP" Then
  20.             GoTo 191
  21.           Else
  22.   139       Cls 
  23.             Locate 10, 20
  24.             Print "@0F@Path to CID_SW NOT found!"
  25.             Delay 5
  26.             GoTo 191
  27.           End If
  28.         End If
  29.       End If
  30.   172 Run s4467 + "CID_SW", ""
  31.   191 Print DefColor
  32.       Cls 
  33.       End 
  34.  
  35. '! Called 2 times
  36.       Function Func214(s65534 As String) As Integer
  37.         Func214 = -1
  38.         If Exists(s65534) Then
  39.           Open s65534 For Input As 1
  40.         Else
  41.   273     Func214 = 0
  42.         End If
  43.   279
  44.         Catch 10
  45.           Func214 = 0
  46.         GoTo 306
  47.   306
  48.       End Function
  49.